home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
PROGRAMR
/
JORF21_2.ZIP
/
FILEPRNT.J
< prev
next >
Wrap
Text File
|
1993-07-05
|
753b
|
29 lines
FilePrnt:Start
New (FileList, FileChoice, PrintList, PrintChoice)
Win:Add("Reading Directory")
One Moment Please . . .
FileList = Arr:Sort(Arr:Dir("*.*","EXE,BAK,OBJ,LIB,JRF"))
PrintList = Arr:Printers()
Win:Del
Win:Add("Print a File")
Group:"&Files", Row:1 Col:1 Len:12 Wid:32
Array:"" Field:"FileList" Choice:"FileChoice"
Group:"&Printers", Row:1 Col:36 Len:5 Wid:22
Array:"" Field:"PrintList" Choice:"PrintChoice"
Button:" &Go " Row:8 Col:42
Action:"FilePrnt:Print(FileList[FileChoice] , PrintList[PrintChoice] )"
Button:" E&xit " Row:11 Col:42 Action:"Null"
Return
FilePrnt:Print(File,Printer)
Win:Add
Printing . . .
File:Print(File,Printer)
Return Ok